(define f
  (let ((keep (- 0.5)))
   (lambda (x) (set! keep (+ keep x)) keep)))

(+ (f 0) (f 1))

(define f
  (let ((keep (- 0.5)))
   (lambda (x) (set! keep (+ keep x)) keep)))

(+ (f 1) (f 0))
